﻿Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration.ConfigurationManager

Partial Class CPayPal
    Inherits System.Web.UI.Page

    Dim cn As New SqlConnection(ConnectionStrings("cn").ConnectionString)

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        lblMontoTotal.Text = Request.QueryString("montototal")
    End Sub

    Protected Sub btnVerificar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnVerificar.Click
        Dim orden As New HttpCookie("orden")
        orden.Values.Add("fecha_entrega", datepicker.Text)
        orden.Values.Add("direccion_destino", txtDirecDestino.Text)
        Response.Cookies.Add(orden)

        Response.Redirect("CarritoResumen.aspx")
    End Sub
End Class
